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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USERS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USERS Group, in con- 
nection therewith. 
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INTRODUCTION 

Under steady conditions of flow, in a pipeline fed from 
a constant level reservoir controlled by a valve at a lower end, 
closure of the valve initiates a change in pressure which may 
give rise to "water-hammer" effects.. This program performs 
a numerical step method of integration to compute the pressure 
developed at the valve (or gate) due to the closure of that gate. 
Only a single pipeline of uniform dimensions is considered. 
Friction in the system is ignored. 



Mathematical Method 

Whilst the exact mathematical treatment of the pressure 
changes in a conduit under the influence of instantaneous valve 
closure is well established, that for slow gate closure is only- 
soluble by a numerical integration procedure. The method used in 
the program described herein assumes that the valve closes slowly, 
but in small instantaneous steps* When the valve closes instantly 
the velocity of the layer of water next to it must be reduced from som 

value V to zero. As a result an elastic pressure wave is trans - 
o 

mitted toward the reservoir at a velocity of ? a' ft/ sec. At the 
instant L/ a seconds after valve closure, the velocity of flow is 
everywhere equal to zero while the pressure in the pipe is Ah fc 
above that in the reservoir at the same level. Water immediately 
tries to move from the high pressure area to the low pressure area 
so that an expansion wave proceeds towards the valve arriving there 
at time 2L,/ a. If the gate has not closed further since the wave was 
initiated, another wave will travel to the reservoir and return this 
time reducing the head in the pipeline and at time 4L/ a the con- 
ditions will be identical to those at the start (i.e. time t = 0). 

If the valve had been closed slowly, in a time exceeding 
2L/a seconds, the reflected expansion wave would have relieved 
the increasing pressure to some extent before the full theoretical 
Ah^ had built up. If a particular velocity change Av occurs in a 
shorter time than 2L/ a it causes the same pressure increment as 
an instantaneous velocity change of the same magnitude, namely 
- — Av : if the velocity change occurs in a time exceeding 2L/ a 
seconds the pressure increment is affected by the reflected elastic 
waves . 

The following assumptions simplify the solution and have 
little effect on the results: 

1. The pipe is as sumer] to be frictionless . 
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2. The coefficient of contraction for the resulting orifice 
as the valve (or gate) closes is unchanged so that the 
discharge at any time t may be defined as 



Q t= Q oX 

o 



H t 
H 



3. The gates are imagined to close in a number of 
instantaneous steps at time intervals of 



A = — 
t a 



sees 



4, The ratio of gate opening to full opening may be 
expressed graphically by the form. 




rn<z 



If h is the pressure increment of the wave generated 21/ a seconds 
r t 

previously, returning to the gate at some time t then the total head 
H fc may be written as 

n(2L/a) 

H = 2 ' (Ah. + h ) + H 
1 t = 1 r t ° 



Rewriting the equation for discharge at any time t as 




and assuming a trial value of , a trial value of may be 
obtained. By successive computations another value of Q^. is 
calculated and compared with the original assumption. If the two 
agree within 0. 1% the results are printed and the next step computed 
for time (t 4- 2L./a). If there is no such agreement, the new value 
of Q, is taken as a new trial value and the computations repeated. 

It occasionally happens, that with exceptionally small 
gate openings, the accuracy of solution does not allow convergence 
to conform with the desired 0.1% accuracy. In this instance the 
operator is provided with a means of forced output. 

Input Format 

Input format is in a fixed point form using the record mark 
as the decimal point. Since the floating point subroutines use a 
8 digit mantissa, it is pointless to input more than 8 digits. However 
if the operator does exceed this figure, the program will truncate 
data to the desired level. Since the input area is filled with record 
marks before input is gated, an integer may be entered without 
definition of the decimal point. To aid the operation, all input is in 
numerical mode and consequently negative input data is unacceptable. 
All input data is expressed in feet - second - pound units. Prior 
to entry of the data a description of the required information is 
typed: 

DISCHARGE The initial steady state flow through the pipeline 
and valve in cusecs . 

HEAD The initial head at the gate (or valve) neglecting 

losses. Note that for large gates use the head 
at the centre line of the gate (ft). 

C.S. AREA The cross sectionai area of the conduit (ft }.* 



LENGTH 
VELOCITY 



where 



and 



a 
K 
E 

D 
t 

w 



The length of the pipeline (ft). 

The velocity of wave propagation in the pipeline 
(ft/ sec). This quality will vary according to the 
elastic properties of the conduit and fluid. In 
general, 
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a f tk f nr) 

is the velocity of the pressure wave in ft/ sec. 
is the bulk modulus of the fluid in lb/ in^. 
is the Young's Modulus of the material of the 
pipe in lb/ in^. 

is the internal diameter of the pipe in inches, 
is the wall thickness of the pipe in inches. . 
is the specific weight of the fluid. 



T(l) J Gate closure characteristics except that with 

RATIO ) See Fig. I. SW3 ON T(l) is accepted as T(l)*. 
) 
) 



T(2) 



Output 

The output consists of eight columns of data without 
headings these are: 



t Aht Av hrt Ht Gate Opening Vt . Qt 

(Sees) (ft) (ft/sec) (ft) (ft) (--) (ft/sec) (cusecs) 

All output is in fixed point notation and requires a minimum 11" wide 
sheet. 
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r. 

OPERATING PROCEDURE 

1. Clear Memory B/.I 160001000000 R/S. 
Wait 3 seconds, depress Instant Stop. 

2. Load the program tape in the photo reader, and 
R/l 36000000300 R/s. 

The tape will be read into the l6Z0 and eventually 
computation will halt. 

3. ' Depress START. 

J The computer will type: 

WATER HAMMER • 
DISCHARGE 

and gate type -in. Enter the data in fixed point notation using the 
record mark as a decimal point. Depress RELEASE & START 
after entry. An echo will be typed out in the same format followed 
by the next- request for data. Note that at the instant where T(l) is 
requested SW3 should be set to indicate actually whether T(l) or. 
T(i)# has been typed in 

SW3 ENTRY 

ON T(i)* 

OFF T(l) 

Errors in typing may be corrected before RELEASE & START have 
been depressed by .putting SW4 ON first and then releasing this 
information. If an error is detected only after release to the computer 
depress RESET, INSERT, RELEASE & START to recommence the 
program. Note that a zero entry is merely RELEASE/ START. 

4. Immediately after the entry and echo of the last piece of 
input data, five carriage returns will occur followed by the first line 
of output data. At approximately 12 second intervals this procedure 
will be repeated. 

5. To terminate computation at any time put SW1 ON and the 
computer will halt after the next line of type -out. Depress START 
to return to Step 3. 



6, With very small gate openings, convergence to a 

satisfactory degree may not be reached. After a period of at 
least 30 seconds, put SW 2 ON to force output. As soon as the 
output commences, put SW 2 OFF so as to not force output on the 
next time step* 



HASH TOTALS 



SOURSE TAPE 72969 • 28941 . 9 1479- 85604" 
OBJECT TAPE 59560. 10747.71397. 16063" 



* WATER 


HAMMER 




00020 


DC 


10,0, 


* FIXED 


POINT 


UTPUT ROUTINE 


OOOZjOTYPED TF 


FJX£D~8,ZERC, 


Af\n f~ f\ 
UUU^U 


TF 


FIXED+2,ZER0, 




SF 


SF+1.0, 




AM 


SF+9,50,10 




TF 


*+23»SF+<>, 


uuu yu 


CM 


TYPED-9,60,10, 


D0 1 An 
uu j uu 


D LI 


FLPT, 


A A 1 1 A 


AM 


SF+1 1,50,10 


AA 1 *i C\ 

uu 1 2u 


TF 


*+23,SF+11, 


A A 1 A 
UU I -5U 


UM 


TYPED-9,48,10, 


A A 1 /, A 
UU J i+U 


D 1 
DL 


TEST, 


A A 1 rACC 

uu j 5ubr 


c c 


TYPED-8, 


AA 1 f (\ 

UU J ou 


1 rn 


*+30,FiXED+50, 


AA 1 ~»A 

UU J /u 


S 


*+l8,TYPED-9, 


AA 1 QA 
UU | 0* * 


TF 


,TYP£D-1, 


AA 1 QAC CT 

uu 1 yubc I 


TCM 

1 rn 


N,17,10, 


uu /uu 


I r n 


M,0,10, 


A A 1 A 
UU/ | U 


TCM 

1 m 


*+35,FIXED, 


A A OA 

uvz ZU 


c 


*+23,N, 


00230BR0 


BD 


Di,,0, 


00240 


BNF 


Di,BRD, 


OO25O 


TFM 


*+30, OUTPUT, 


00260 


A 


*+l8,M, 


00270 


TFM 


,0,10, 


00280 


B 


N8, 


00290 


DCRG 


*-3, 


0030005 


TF 


,*+23,BRD+11, 


003 10 


TD 


*+47,, 



07187 00010 0000000000 

02188 26 02929 19120 
02200 26 02939 19120 
02212 32 02330 00000 
02224 11 02329 00050 
02236 26 02259 02329 
02248 14 02179 00050 
02260 46 02982 01100 
02272 11 02331 00050 
02284 26 02307 02331 
02296 14 07179 nooks' 
02308 47 02612 01300 
02320 32 02 180 00000 
02332 16 02362 02987 
02344 22 O2362 02179 

02356 26 ooono 02187 

02368 16 02555 000T7 
02380 16 02867 oooao 
02392 16 02427 02937 
02404 22 0?427 02555 
02416 53 02484 00000 
02428 44 02484 02416 
02440 16 02470 02941 
02452 21 02470 O2867 
02464 16 00000 00000 
02476 49 02556 00000 
02484 

02484 26 02507 02427 
02496 25 02543 oooon 



00320 


TFM 


*+30, OUTPUT, 


02508 


16 


f>2538 


02941 


00310 


A 


*+l8,M, 


02520 


21 


02538 


02367 


003U0 


TFM 


. 70, 10, 


02532 


16 


00000 


Obn^o 




u r 




02544 


33 


07416 


00000 




UN 


m a 1 n 


0^556 


14 


02555 


00008 


00 1 70 


n r 
DC 


UcL 1 9 


0?5f>8 


46 


02644 


01 2^0 


00^80 


SM 


N. 1 • 10, 

• * 9 * 9 1 v t 


025 80 


12 


02555 


0000 1 


00390 


AM 


M.2,10, 

9 9 ' 9 


02592 


11 


07867 


00002 


00/+00 


B 


BRD-2^,, 


02604 


49 


02392 


00000 


00^10 


DCRG 




02612 








00i 4 20TEST 


TF 


TYPED- 1 ,ZERC, 


07.612 


?6 


02187 


19120 


OOi+30 


TDM 


TYPED-10,-$, 


02624 


15 


02178 


00005 




B 


SF,, 


02636 


4° 


O732O 


00000 




D0RG 


*-3, 


02644 








00if60D£C! 


TFM 


*+30,CUTPUT+22, 


02644 


16 


02674 




00/f70 


TFM 


*+23,FiXED-7, 


02656 


16 


02^79 




00^00 


TO 




02668 


25 


00000 


00000 


QQUQQ 


CM 


*-1 ,F!XED4-2, 


02680 


14 






00500 




* * * F 


02692 


46 


02736 


012^0 


00510 


AM 


*-25.1. 

*- 9*9 


02704 


1 1 


02679 


00001 


00^20 


AM 


*~*f2„2. 
9 9 


02716 


1 1 


02674 


00002 


00530 


B 




02728 


49 


02668 


00000 


00540 


D0RG 


* 9 ■ 


0273^ 








^ ^ W 


MM 


SF+9,-2, 10, 


02736 


n 


02329 


00002 


00560 


SF 


98, 


02748 


32 


00098 


00000 


v> v> ^) / VJ 


TFM 


M14-A.0UTPUT + 20. 


02760 


16 


02874 


02961 




A 


M1+6. 99. 


02772 


21 


02874 


00099 


HOC Qfi 


01 1 


cr+l 1 *50. 10. 


02784 


12 


02331 


00050 


UvoUU 


MM 
III 1 


Cfxl 1 — ? 10. 


02796 


13 


02331 


00002 


UUn 1 u 


cc 
or 


Oft 


02808 


32 


00098 


00000 


00620 


TFM 


*+30,CUTPUT+22, 


02820 


16 


02850 


02 963 


00630 


A 


*+l8,99, 


02832 


21 


02850 


00099 


00640 


TO 


,400, 


02844 


25 


00000 


00400 



00650 


SF 


BRD , 


02056 


32 02416 00000 




006A0M1 


WATY 


ft 


02868 


39 00000 00100 




00670 


13NF 


,v +26, TYPED- 1 , 


O288O 


44 02906 02187 




00600 


WATY 


MINUS,, 


02892 


39 O3153 


00100 




00690 


BB 




02904 


42 


00000 


00000 




00700 


DCRG 


*-9, 


02^06 










00710 


SPTY 




02906 


34 00000 00101 




00720 


BB 




02918 


42 


00000 


00000 




00730 


DORG 


*-9, 


02920 










00740FJXED 


DC 


18,0, 


02937 


00018 000000000000000000 


00750 


DC 


2,0, 


02939 


00002 00 




OO76OOUTPUT 


DAC 


21, .OOOOOOOOOja 


02941 


00021X2 




.000000000* 


00 770 N 


DC 


2,0,N8-1, 


02555 


00002 00 




OO78OM 


DC 


2,0,M1-1, 


02867 


00002 00 




* FLOATING 


POJNT OUTPUT ROUTINE 












* EXPONENT 


GREATER THAN 10 












00810FLPT 


BNF 


*+36,TYPED-1, 


02982 


44 


O3OI8 


02187 




00820 


WATY 


MINUS, 


02994 


39 


03153 


00100 




OO83O 


B 


*+24, 


O3OO6 


49 


O3O3O 


00000 




00840 


SPTY 




O3O18 


34 


00000 


00101 




00850 


CF 


TYPED-1 , 


O3O3O 


33 


02187 


00000 




00860 


TD 


*-1,TYPED-8, 


03042 


25 


03041 


02180 




00870 


TD 


TYPED-8,400, 


O3O54 


25 


02180 


00400 




00380 


CF 


TYPED-10, 


O3O66 


33 


02178 


00000 




00890. 


WNTY 


TYPED-10, 


O3O78 


38 


02178 


00100 




00900 


WATY 


DECPT, , 


0?0°0 


39 


03157 


00100 




00910 


TD 


TYP£D-8,FLPT+59, 


03102 


25 


02130 


03041 




00920 


TD 


TYPED, 400, 


0^114 


25 


02188 


00400 




OO93O 


WNTY 


TYPED-8, 


03126 


38 


02180 


00100 




00940 


TDM 


TYPED, 2, 


03138 


15 


02188 


00002 




00950 


BB 




03150 


42 


00000 


00000 




00960 


DCRG 


*-9, 


03152 










OO97OM1NUS 


DAC 


2,-C'O 


03153 


00002X2 • 


-* 





00930DECPT DAC 2,.(«> O3157 00002X2 .* 



-,v 


FIXED PC 


5 NT i 


NPUT ROUTINE 











lOOOiN 


DAS 


10, 


03161 


00010X2 




0" 


I010EX50 


DS 


10, 


03189 


00010 




o- 


I070ALPHA 


DAC 


10, Discharged 


03191 


00010X2 DISCHARGE* 


o- 


I030 


DAC 


10, head @> 


03211 


00010X2 HEAD 


* 


0l 


lOifO 


DAC 


10,C.S.AREA & 


03231 


00010X2 C.S.AREA 


* 


Ol 


050 


DAC 


10, LENGTH @> 


03251 


00010X2 LtNGTH 


+ 


Ol 


060 


DAC 


10,VELCCITY <?> 


03271 


00010X2 vELCCiTY. 


4. 


01 


I070 


DAC 


10,T(1) & 


03291 


A A A 1 A V O T / 1 \ 

ouu 1UX2 1 v I ; 


+ 


Ol 


080 


DAC 


10,RAT5G (S) 


03311 


UUU 1 U A / KA 1 I 'J 


+ 
+ 


0' 


1 090 


DAC 


10,T(2) <S) 


03331 


aaa 1 nv o t / o \ 
UUU ] UX2 \ \2) 


4- 


01 


100 


DC 


5,0, 


03354 


OUUU5 uoouu 




o- 


1 1 10READ 


TFM 


N,0,10, 


03356 


16 02555 00000 




Oi 


1120 


TFM 


*+30, iN, 


03368 


lb 0339^ 03101 




O 1 


1 130 


A 


*+l8,N, 


03380 


21 O3398 02555 




o- 


I'lW 


TD 


,400, 


03392 


n i~ AAAAA AA J AA 

25 00000 ouhou 




0' 


1150 


CM 


N,19,10, 


03404 


</. A 1 r* r* A A A"T A 

14 02555 OUU]. 9 




Ol 


11 60 


BE 


*+32, 


03416 


f /" r\ ~i f J.O A 1 A A 

If 6 03^48 01200 




Ol 


170 


AM 


N,1,10, 


03428 


1 1 02555 ooooi 




Ol 


180 


B 


*-72, 


03440 


49 O3368 00000 




Oi 


190 


DCRG 


*-3, 


03448 






01 


1 200 


TF 


EX50,READ-1, 


03448 


26 03189 03355 




Oi 


210 


SM 


EX50, 18000, 


03460 


12 O3189 18000 




Ol 


1220 


MM 


EX50,2,10, 


O3472 


13 O3189 00002 




o- 


1230 


SF 


95, 


03484 


32 00095 00000 







1240 


RCTY 




O3496 


34 00000 00102 







1250 


TFM 


*+30,ALPHA, 


O35O8 


16 03538 03191 







1260 


A 


'•'+18,99, 


0352O 


?1 0^*8 Q0f>99 









WATY 




03^32 


39 oonoo ooion 







1 230 


TBTY 




035 w 


34 on 000 00108 







12 Q 


RNTY 




03556 


36 03161 00100 







1300 


BC4 


READ, 


03568 


46 03356 00400 





01310 


TFM 


N,1,10, 


03500 


16 


02555 


0000 1 


oi 3?0 


BNR 


BNR- 24, !N, 


03592 


45 


03636 


03161 


1 330 


BNR 


LESS,iN+1, 


03604 


45 


03970 


03162 


01340 


TF 


EX50,ZERC, 


O361 6 


26 


03189 


19120 


01350 


B 


STORE- 12, 


03628 


49 


03912 


OOOOO 


0i3t>0 


DCRG 


*-3, 


03636 








01370 


TFM 


>+35,!N, 


03636 


16 


O3671 


03161 


013«0 


A 


*+23,N, 


03648 


?! 


03671 


02555 


01390BNR 


BNR 


AD1, 


O366O 


45 


03950 


00000 


0-11*00 


TFM 


EX50-8,50,10, 


03672 


16 


03181 


00050 


01410 


A 


EX50-8,N, 


03684 


21 


03181 


02555 


01^20 


SF 


IN, 


03696 


32 


03161 


OOOOO 


01430 


TF 


M,N, 


O37O8 


26 


02867 


02555 


01440 


AM 


N,1,10, 


03720 


11 


02555 


0000 1 


01450 


TFM 


*+35,!N, 


03732 


16 


O3767 


03 161 


01460 


A 


*+23,N, 


03744 


21 


03767 


02555 


01470 


BNR 


*-36,, 


03756 


45 


03720 


OOOOO 


01480 


TFM 


*+3Q,«N, 


03768 


16 


03798 


03161 


01490 


A 


*+l8,N, 


03780 


21 


03798 


02555 


01500 


TDM 


,0, 


03792 


15 


OOOOO 


OOOOO 


01510 


CM 


N,3,10, 


03804 


14 


02555 


00008 


01520 


BL 




03816 


47 


03720 


01300 


01530 


TFM 


*+54,iN, 


03828 


16 


03882 


03161 


01540 


TFM 


*+47,!N+1, 


O3840 


16 


03387 


03 16? 


01550 


A 


*+30,M, 


03852 


21 


03882 


02867 


O156O 


A 


*+?3,M, 


03864 


21 


03887 


02867 


01570 


TR 


» » 


03876 


31 


OOOOO 


00000 


O158O 


TF 


EX50.5N+7, 


03888 


26 


03189 


0316« 


01590 


CF 


EX 50- 7, 


03900 


33 


O3182 


OOOOO 


016O0 


TF 


*+l8,READ-1, 


03^12 


?6 


03930 


O3355 


1610S TORE 


TF 


,EX50, 


03924 


2* 


OOOOO 


0318a 


01 670 


TBTY 




03936 


34 


onooo 


00108 


01630 


BB 




O3948 


42 


00000 


OOOOO 



1 640 
016SOA01 

1 660 
01670 

1680 LESS 

01690 

01 700 

01710 

01720 

01730 

017^0 

01 750 

01760 

01770 

01 780 

017^)0 

018 A 

01810 

01870 

018*0 

01840 

01350 

01360 

O187O 

O188O 

0i8«0 

01 900 

01910 

01920 

01930ACC 

01940SPEC 
01950ZERO 

O196OOME 



DCRG *- c >, 

AM N,1,10, 

B BNR-24, 
DCRG *-*, 

TFM N,0,lO, 

TR !N,iN+1, 

TFM *+35, !N, 

A *+23,N, 

BO *+*2,, 

AM N, 1 ,10, 

B *-60, 
DORG 

TFM EX50-8.5O/10, 

S EX50-8,N, 

TFM N,0,iO, 

AM N,1,10, 

TFM *+35,«N, 

A *+23,N, 

BNR *-*6, 

CM N,<», 10, 

BE *+56, 

TFM *+*0,i*N, 

A *+l8,N, 



TDM ,0, 



B *-l08, 

DCRG *-*, 

SF IN, 

B STCRE-36, 

DCRG *-3, 

DC 10,0,19160 

DC 10,0, 

DC 10,0,19120, 

DC 10,51 10000000, 19H0, 



03950 
03950 
03962 
03970 
0*970 
0*982 
0*9% 
04006 

04018 
040 ?0 
04042 
04050 
04050 
04062 
04074 
04086 
040 OR 

04110 
04122 
04134 
04146 

04158 
04170 
"4182 
04194 
04202 
04202 
04214 
04222 
1916" 

04231 
19120 

19130 



11 02555 oooai 
49 03636 00000 

16 02555 oooan 
31 0*161 0*162 
16 04029 03161 
21 04029 02555 

43 04050 00000 
11 02555 00001 
49 O3Q82 00000 



16 03181 
22 03181 
16 02555 
11 02555 
16 04133 
21 04133 

45 04086 

14 02555 

46 04202 
16 04188 
21 04188 

15 00000 
49 04086 



OOO5O 

02555 
00000 

00001 

0*161 

02555 
OOnoo 
00009 
01200 
0*161 

02555 
ooooo 
ooooo 



32 03161 ooooo 
49 0*888 OOOOO 



00010 

00010 
00010 

00010 



0000000000 

0000000000 

0000000000 
5110000000 



O1970TEN 


DC 


10, 5210000000,191 W, 


19140 


00010 5210000000 


01 980 Pi 


DC 


10,5131^15926,19150, 


19150 


00010 5131415926 


0l9O0DiGiT 


DC 


1,0, 


04232 oonoi 


02O0niRA 


DC 


5,0, 


04237 00005 G0000 


02010HEAD 


DAC 


13, WATER HAMMERS 


04239 00013X2 WATER HAMMER* 


02020 


RCTY 






3li 00000 001 07 


020.30 


V/ATY 


HEAD, 


Oil? 7 A 


2Q 0L93Q 00100 


0?O*f0A0Q0O0 


TFM 


WB 1,00000, 




1A OQ9L0 00000 


02O5OA0Q010 


TFM 


WD 1,00010, 


04=100 


16 « 97.45 000 10 


02060A09020 TFM 


WL1, 00070, 


04*12 


16 09250 00070 


02070A090 30 


TFM 


*+35, 18000, 


04324 


16 04359 T8000 


02080 


A 


*+23,WB1, 


04336 


21 04359 09240 


02090 


BTM 


READ, 


04348 


17 n 3356 00000 


0?100 


TF 


*+*5.*-1» 


043*0 


26 04395 043^9 


02110 


TFM 


SF+11,703,811, 


04372 


16 o?331 00703 


021 20 


BT 


TYPED, 


04384 27 02188 00000 


021?OAOqO/+0 


A 


WB1,WD1, 


043% 21 09740 0924S 


0?140 


C 


WL1,WB1, 


04408 


24 0Q250 09240 


02 150 


BL 


*+20, 


04470 


^7 okkkQ 01300 


02160 


B 


AO 90 30, 


04432 


49 04324 00000 


021 70 


DORG 


*-3, 


04440 




021 80 AO 9O5O 


TFM 


WB1, 00000, 


04440 


16 n 9240 00000 


0219OA09O60 


TFM 


WL1,0020O, 


04452 


16 09250 002O0 


022OOA09O7O 


TFM 


WB2, 00000, 


04464 


16 09255 00000 


02210A0903O 


TFM 


WD2,00010. 


04476 


16 09260 00010 


02220A09090 


TFM 


WL2, 00030, 


04488 


16 09265 OOO3O 


02230A09100 RCTY 




04500 


*4 00000 00102 


02240 


RCTY 




04512 


34 00000 00102 


02250 


RCTY 




04524 


34 00000 00102 


02260 


RCTY 




04536 


34 00000 00102 


02270 


RCTY 




04548 


24 00000 00102 


02280 


BC* 


A 10780, 


045 60 


46 09024 OO3OO 


02290A091 10 TF 


ACC, 19120, 


04572 


26 19160 19120 



^ Z j>u wrt y y I zvj i r n 


a. an 1 ft 1 n n 


U Z;> 1 U A 


I 0|WD | 9 


u Z;sZU Tr 


9 ACC f 




l, in « li/n 1 

WBl pViVl 9 


U23hU C 


WL1 f WB1 # 




*+20 f 




A0912O, 


U 23/U UUKG 




v z 3 v u a u £ tfu [ {- ri 


WL 1 p UUU3U 9 


notJOAAHQlcn TCM 




OoiifinAnQiAn tcm 




uZhIu A 


w +l O f Wd 1 p 


u ZhZu ir 


Arr 


09Il^AA0Q1 "7H A 


wr 1 wn 1 

WD 1 p VYU 1 , 




TT L, 1 p V ¥ U 1 £ 








aOQI Aft 


^Z t t/*-' ULrvla 




(loiiQnAnoiPn tc 
wZhouau^ i ou i r 


Arr 1 Aft 1 n 


u zh yu au s i yu i r 




OorAAAnonnn TC 
u Zp vUAU ^zuu I r 


Arr 1 Qi 2ft 
ALL, I 3 U # 


Ootz 1 nADao 1 n tc 


iRQCfi Arr 


noOflAHOOOrt TC 

^ZbZUAuyzzU ir 


Arr 1 PAftft 
ALL 9 1 OUUvJ, 


02530A092^0 TF 


18970»ACC # 


OociinAnookn tc 


1 'ft a en Arr 

1 O.^pU , ALL 9 


0255OA0q25O FD 

■ . ■ ■ 


ACC, 18020, 

' ; ■ 




A rr qq 

all, yy, 


^25 70 AU 9260 TF 


1o«hU,ACC, 


02580A09270 TF 


18960, ACC. 


0259OA0928O TF 


ACC, I8O3O, 


02600A0Q29O FD 


ACC, 1801*0, 



04581* 16 
04596 21 
04608 26 
04620 21 
04632 24 
04644 47 
04656 49 
04664 
04664 16 
04676 16 
04688 16 
04700 21 
04712 26 
04724 21 
047^6 24 
04748 47 
0476O 49 
04768 
04768 26 
04780 26 
047^2 26 
04804 26 
04816 26 
04828 26 



04614 T8100 
04614 09240 
00O00 1916O 
09240 09?45 
09250 09240 
046640 1300 
04584 00000 

03250 00030 
09240 00000 
04718 T8900 
04718 09240 
00000 19160 
09240 09245 
09250 09240 
04768 01300 
04688 00000 



04840 26 
04852 16 
04864 26 
04876 49 
04888 26 
04900 26 

04912 26 
04924 26 
04936 16 



19160 18010 
18940 19160 
19160 19130 
18950 19160 
I960 18000 
18970 19160 
18 3 50 19160 
00469 04887 
01 260 19160 
01422 T8020 
19160 OOO99 
18340 19160 

18960 19160 
19160 18030 

00469 04971 







04948 26 012.60 19160 








04960 49 01422 T8040 




026 JO TF 


ACC,<>9, 


04972 26 19160 00099 




02620A093O0 FD 


ACC, 17960, 


04984 16 00469 O5019 
04996 26 01260 19160 
O5OO8 49 01422 T7960 




02630 TF 


ACC, 99, 


O5O2O 26 19160 00099 




026WA09310 TF 


18360,ACC, 


O5O32 26 18360 1916O 




O265OA09320 TF 


ACC, ZERO, 


05044 26 19160 19120 





02660 S 


ACC, I8O5O, 


05056 22 19160 18050 




02670A09330 FM 


ACC, 1 8060, 


O5O68 16 00469 O5 103 
05080 26 01 26O 19160 








05092 49 01262 T8060 




02680 TF 


ACC, 99, 


05104 26 19160 00099 




02690A093W FA 


ACC,18050, 


05116 16 00469 05151 








05128 16 00445 T9160 








05140 49 00422. T8O5O 




02700A09350 TF 


18390, ACC, 


O5152 26 18390 19160 




O27IOAO936O TF 


ACC,179 Q 0, 


05164 26 19160 17990 





0272OA09370 FD 


ACC, 1 8040, 


O5176 16 00469 O52H 
O5188 26 01260 19160 
05200 49 01422 T8040 




O273O TF 


ACC, 99, 


05212 26 19160 00099 




O27WAO938O TF 


18320, ACC, 


05224 26 18320 19160 




0275OA09390 B 


A10690, 


05236 49 08820 00000 




O276O DCRG 


*-3, 


05244 




02770A09W0 TF 


ACC, 18900, 


05244 26 19160 18900 




02780A09410 FA 


ACC,18360, 


05256 16 00469 05291 
05268 16 00445 T9160 
O528O 49 00422 T836O 




02790A09*f2O TF 


18900,ACC, 


05292 26 18900 191 60 




02800A09430 FS 


ACC, 18390, 


05304 16 00460 O5339 
O5316 16 00445 T9160 





U2810AO944O 


C 


ACC, ZERO 


028 20 


CNN 


A 10030 


U2U30A09450 


TF 


ACC, ZERO, 


02340 


S 


ACC,18360, 


02050A09460 


FD 


ACC, 18050, 


02360 


TF 


ACC, 99, 


i>2o/0AU94 /O 


FA 


ACC, ioy5u, 


O288OAO948O 


TF 


18950, ACC, 




Tr 


ACC, /.fcrvJ, 


2 900 


S 


ACC,18360, 


0291OAO95OO 


FD 


ACC, 1o050, 


02920 


TF 


ACC, 99, 


0293OAO951O 


FM 


ACC, 18000, 


02940 


TF 


ACC, 99, 


O2950A09520 


FA 


ACC, 1 035O, 


O296OAO953O 


TF 


1837°, ACC, 


2 970 AO 95 40 


TF 


ACC, 18370, 


O298OAO955O 


FD 


ACC, 18950, 


02990 


TF 


ACC, 99* 


O3OOOAO956O 


FD 


ACC, 18000, 



05328 49 00402 T8390 
05340 24 19160 19120 
05352 46 07244 01300 
05364 26 19160 19120 
05 3 7 6 2 2 1 91 60 1 83 60 

O5388 16 00469 05423 
05400 26 01260 19160 
05412 49 01422 T8O5O 
05424 26 19160 00099 
O5436 16 00469 05471 
05448 16 00445 T9160 
05460 49 00422 T895O 
O5472 26 18950 19160 
05484 26 19160 19120 
05496 22 19160 18360 
O55O8 16 00469 05543 
O552O 26 01260 19160 
05532 49 01422 T8O5O 
05544 26 19160 00099 
05556 16 0046^ 05591 
O5568 26 01 260 19160 
05580 49 01262 T8000 
05592 26 19160 00099 
05604 16 00469 05639 
O5616 16 00445 T9160 
05628 49 00422 T8350 
05640 26 18370 19160 
05652 26 19160 18370 
05664 16 00469 05699 
O5676 26 01260 1916" 
05688 49 01422 T8950 
O57OO 26 19160 00099 
05712 16 00469 05747 



03010 TF 
0302OA0957O FM 



ACC, 99, 
ACC, 19160, 



O3O3O TF 
03040A09580 FS 



ACC, 99, 
ACC, 191 30, 



O305OAO959O FM ACC, 18010, 



O3O6O TF 
030 70AO 9600 TF 
0308OA09610 FS 



ACC, 99, 
18400,ACC, 
ACC, I83OO, 



0^09OA09620 TF 
O3IOOAO963O TF 
03110 TFM 
O312O A 

03130 S 

03140A096W FM 



183 10, ACC, 
ACC, ZERO, 
*+35, I82OO, 



*+23,WB2, 
ACC,00000, 
ACC, 17960, 



03 150 TF 
0*1 60A0 9650 TFM 
0*170 A 
0*180 FS 



ACC, 99, 
*+59,l8lOO, 

*+47,WB2, 
ACC, 



05724 
05736 
05748 



05 76O 
05772 
O5784 



05796 
O58O8 
O582O 



O5832 
05844 
O5856 



O5868 
O588O 
05892 
05904 
05916 
05928 
05940 
05952 
05964 



05976 
O5988 
04000 



0*190A09660 TF 18930,ACC, 



06O12 
06024 
06036 
06048 
06060 

O6O72 
060 

06096 
06108 



26 01260 

49 01422 
26 19160 

16 001+69 
26 01 260 
49 01262 
26 19160 
16 00469 
16 G0445 
49 00402 
16 00if6Q 
26 01260 
49 01262 
26 19160 
26 18400 
16 00469 
16 00445 
49 0040*2 
26 18310 
26 19160 
16 05999 

21 05999 

22 19160 
16 00469 
26 01260 
49 01262 
26 19160 
16 06107 
21 06107 
16. 00469 
16 00445 
49 00^02 
26 18930 



19160 
T8000 
00099 
05795 
19160 
T9160 
00099 

05843 
T9160 

T9130 
05879 
19160 
T8010 

00099 
19160 

05939 
T9160 
T83OO 
19160 
19120 
T8200 

09255 
00000 
O6O35 
19160 
T7960 
00099 
T8100 

09255 
06107 
T9160 
00000 
19160 



03200A09670 TF ACC, ZERO, 
0*210 S ACC, 189*0, 

03220A09680 FA ACC, 18310, 



O323OAO96QO TF 
O32WAO97OO TF 

03 250 S 

O326OAO971O FM 



18^10, ACC,. 
ACC, ZERO, 
ACC, 18910, 
ACC, 18320, 



0*270 TF 
03280A0972O TF 
O329OAO973O FA 



ACC, 99, 
18920, ACC, 
ACC,1*3W), 



O33OOAO97W TF 18960, ACC, 
03310A09750 FM ACC, 18020, 



03370 TF 
O333OAO976O TF 
033M)A09770 FS 



ACC, 99, 
18380,ACC, 
ACC, 18370, 



O335OAO978O TF 
O336OAO9790 TF 
O337O CF 
O338OAO98OO FM 



17980,ACC, 
ACC, 17980, 
ACC, 

ACC,17 q 50, 



O339O TF ACC, 99, 

O34OOAO98IO FS "^,18380, 



06120 26 19160 19120 
0*132 22 19160 18930 
0612+2+ 16 002+69 061 79 
061 56 16 OO2+2+5 T9160 
061 68 2+9 002+22 T8310 
06180 26 18910 19160 



06192 26 19160 19120 
06202+ 22 1 SI 60 18910 
06216 16 002+69 06251 



06228 26 012^0 19160 
062"+0 2+9 0126?. T8*20 
06252 26 19160 00099 
06264 26 18920 19160 
06276 16 002+69 06311 
06288 16 002+2+5 T9160 
06300 2+9 002+22 T8340 
06312 26 18960 1.9160 
063 22+ 16 002+69 635 9 
06336 2 r 012*0 19160 
063 "+8 k9 01262 T8020 
O636O 26 19160 00099 



06372 26 18380 19160 
06382+ 16 002+69 062+19 
06396 16 OO2+2+5 T9160 



062+08 2+9 002+02 T8370 
062+20 26 1 79^0 19160 
062+32 26 19160 17980 



O62+2+2+ 33 1916O 00000 
062+5r, 16 002+69 062+91 
062+68 26 01 26O 1916^ 

062+80 2+9 01262 T7950 
0<'«2+92 ?6 19160 00099 

06502+ 16 OQ2+69 06539 



O359O 


TF 


ACC, 99, 


03600A09910 


FM 


ACC, 18370, 


03610 


TF 


ACC, 99, 


03620A09920 


TF 


18500,ACC, 


036'0A09930 


FM 


ACC, 18370, 


03640 


TF 


ACC, 99, 


O365OAO994O 


TF 


17980, ACC, 


036^09950 


TF 


ACC, ZERO, 


O367O 


S 


ACC, 17980, 


036«0A09960 


FA 


ACC,18380, 


O369OAO997O 


TF 


185 10, ACC, 


O37OOAO998O 


TF 


ACC, 19130, 


O37IOAO9990 

- - - - 


FS 


ACC, I85OO, 

- 


O37 20 A 10000 


FD 


18510,ACC, 


O373O 


TF 


ACC, 99, 


O374OAIOOIO 


TF 


18370,ACC, 


O375OAIOO2O 


B 


A09540, 


O376O 


DORG 


*-3, 


03 7 70 A IOO3O 


FS 


ACC, 180 70, 


O378OA 10040 


C 


ACC, ZERO 



06912 49 01422 T8000 
06924 26 19160 00099 
06936 16 00469 06971 
06948 26 01260 19160 
06960 49 01262 T8370 
06972 26 19160 OOO99 
06984 26 185OO 19160 
06996 16 0G46<» O7O31 
O7OO8 26 01 260 19160 
07020 49 01262 T8370 
O7O32 26 19160 00099 
07044 26 17980 19160 
O7O56 26 19160 19120 
O7O68 22 19160 17980 
O7O8O 16 00469 07115 
07092 16 00445 T9160 
O7104 49 00422 T838O 
O71 16 26 18510 19160 
07128 26 19160 19130 
07140 16 00469 07175 
O7152 16 00445 T9160 
07164 49 00402 T85OO 
O7176 16 00469 O72II 
O7188 26 01260 18510 
07200 49 01422 T9160 
07212 26 191 60 00099 
07224 26 18370 19160 
07236 49 05652 00000 
07244 

07244 16 00469 07279 

07256 16 00445 T9160 
O7268 49 00402 T8O7O 
07280 24 19160 1912O 



03790 BE 


A10?40, 


07292 hi 07848 01200 


03000A 10050 c 


ACC, ZERO 


O7304 24 9160 1912O 


O38IO CNN 


A 10480 


07316 46 08432 01300 


03 820A 10060 TF 


ACC, I8O7O, 


O7328 26 19160 18O7O 


O383OAIOO7O FS 


ACC, 1 8900, 


07340 16 00469 07375 






O7352 16 00445 T9160 






O7364 49 00402 T8900 


O384OAIOO8O FA 


ACC, 18390, 


O7376 16 00469 O74 11 






O7388 16 00445 T9160 






O74OO 49 00422 T839O 


O385OAIOO9O FD 


ACC,18070, 


O7412 16 00469 O7447 






07424 26 01260 19160 






07436 49 01422 T8O7O 


O386O TF 


ACC, 99, 


07448 26 1 9160 onn*-^ 


0387«A1"T"> FM 


ACC, 18060, 


O746O 16 00469 07495 






07472 26 01 260 19160 






O7484 49 0126? T806O 


03880 TF 


ACC, 99, 


07496 26 19160 00099 


03890A1011O TF 


18Q50,ACC, 


O75O8 26 18950 19160 


03900A10120 TF 


ACC, 18900, 


O752O 26 19160 18900 


0391OA1O13O FS 


ACC,1«390, 


07532 16 0046Q O7567 






O7544 16 00445 T9l6n 






O7556 49 0^02 T8390 


0^920A10140 FS 


ACC,18360, 


O7568 16 00469 O76O3 






O758O 16 00445 T9160 






O7592 49 00402 T836O 


03930A10150 C 


ACC, ZERO 


07604 24 I9T60 19170 


O3 940 BNP 


A10180, 


07616 47 07660 01100 


03950A10160 TF 


ACC, ZERO, 


07628 26 19160 19120 


03 960 S 


ACC,18360, 


07640 22 19160 183-0 


0*97^1 0170 B 


A10190, 


O7652 49 07696 00000 


O398O DCRG 




"7660 


03990A10180 FA 


ACC, 18^60, 


O766O 16 00469 07695 



0^410 
0^470 
O7.42O 



C ACC, ZERO, 
BNP A10540, 
BC2 A10540, 



OWiOAOQS'O TF 

03450 S 

O346OAO984O FM 



ACC, ZERO, 
ACC, 17^60, 
ACC, 18020, 



03470 TF ACC,9<\ 

O348OAO985O FM ACC, 18320, 



03490 TF ACC, 99, 

O35OOAO986O FM ACC, 18010, 



03510 TF ACC, 9% 

O352OAO987O FD ACC, 18950, 



03530 TF ACC, 99, 

O354OAO988O FD ACC, 18950, 



03550 TF ACC, 9^, 

O35AOAO989O FD ACC, 18000, 



O357O TF ACC,<>9, 

O358OAO99OO FD ACC, 18000, 



O6516 16 00445 T9160 
06528 49 00402 78380 
06540 24 19160 19120 
06552 47 O8536 01 ion 
06564 46 08536 00200 
06576 26 19160 1«120 
O6588 22 1960 1796O 
0660n 16 00': 69 O6635 
06612 2.6 01 26O 1<M60 
06624 49 01262 T8020 
O6636 26 19160 00099 
06648 16 00469 O6683 
04660 26 01260 191 60 
06672 49 01262 78320 
06684 26 19160 00009 
06696 16 00469 O6731 
O67O8 26 01 260 19160 
O672O 49 01262 78010 
06732 26 19160 00099 
06744 16 00469 06779 
%756 26 01260 19160 
O6768 49 01422 78950 
06780 26 19160 OOO09 
06792 16 00469 06827 
06804 26 01260 19160 
0681 6 49 01422 78950 
06828 26 19160 00099 
06840 16 00469 06875 
O6852 26 01260 19160 
06864 49 01422 78000 
O6876 26 19160 00099 
06888 16 0046=" 06^23 
06900 26 01 26O 19160 



0/fOOOAlOl 90 FD ACC,l8070, 



OlfOlO TF ACC, 99, 

02f020Al0200 FM ACC,l8350, 



040*0 TF ACC, 99, 

04040A10?10 FA ACC, 18*50, 



O4O5O A 10220 TF 
O2f0 / ',OA10230 B 
04070 DORG 
040Rn A1 0240 TF 
040Q0 S 
04 100A 10250 TF 
041 10A10260 TF 
04120 S 
04130A10270 FD 



18*70, ACC, 
AOQ54O, 

*-3, 

ACC, ZERO, 
ACC, 18340, 
18Q20,ACC, 
AC C, ZERO, 
ACC, 18920, 
ACC, 18320, 



07672 16 00445 T9160 
07684 49 00422 T83*0 
076% 16 00469 07731 
07708 26 01 26O 19160 
O772O 49 01422 T8O7O 
07732 26 19160 00009 
07744 16 00469 07779 
07756 26 012*0 19160 
07768 49 01262 T8350 



07780 26 1 91 AO 00099 
07792 16 00469 O7827 
07804 16 00445 T9160 
07816 49 00422 T8350 
07828 26 18370 19160 
O7840 49 O5652 00000 
07848 

07848 26 19160 19120 
07860 22 19160 18340 
O7872 26 189?0 19160 
07884 26 19160 19120 
0789* 22 19160 18020 
07908 16 00469 07943 
O792O 26 01260 19160 
07932 k9 01422 T8*20 



04140 TF 


ACC, 99, 


07944 26 


191*0 


00099 


04150A10280 TF 


18910, ACC, 


07956 26 


18910 


19160 


04160A10290 TF 


ACC, 191 20, 


07968 26 


19160 


19120 


041 70A 10*00 TF 


18950, ACC, 


079«0 26 


18950 


19160 


04l80AlO*10 TF 


10960, ACC, 


079 q 2 26 


18960 


19160 


041 90A10320 TF 


18970, ACC, 


080 04 26 


I8970 


19160 


042O0Al0 a "0 TF 


18*40, ACC, 


00016 26 


18*40 


19160 


0421 OA 10*40 TF 


18*50, ACC, 


00028 26 


18*50 


19160 


04220A 10*50 TF 


ACC, ZERO, 


00040 26 


1 9i 60 


19120 



0i »230 TFM *+^5, 18200, 

04240 A *+23,WB2, 

04250 S ACC, 00000, 

04260A10360 FM ACC, 17960, 



0i+27<l TF ACC, 99, 

04?80A103 70 TFM *+59,l8lOO, 

°429C A *+k7»M2 f 

0; '300 FS ACC, 



Oif^lOA10^80 TF 189=10, ACC, 

04320A10390 TFM *+*0,l8l00, 

oz »3?0 A *+l8,WB2, 

04340 TF ,ACC, 

0435OA104O0 TF ACC, 18910, 

04360A10410 TFM *+30,l82O0, 

04370 A *+l8,WB2, 

°43«0 TF ,ACC, 

043 Q 0A 10420 FA ACC, 18930, 

04400A10430 FA ACC, 18300, 

04410A10440 TF 18*00, ACC, 

04420A10450 FA ACC,18010, 



04430A1046O TF 10940, ACC, 
04440A10470 B A10470, ' 
04450 DORG *-3, 



08052 16 00007 T0200 
08064 21 00087 0^255 
08076 22 19160 OQOOO 
00088 16 00469 0812% 
ORl 00 26 01 260 19160 
00112 49 01262 T7960 
08124 26 19160 00099 
08H6 16 00195 T8100 
08148 21 08 1 95 09255 
08160 16 00460 08195 
08172 16 00445 T<*1 60 
08184 49 0040? 00000 
n 8l 96 26 18930 19160 
08208 16 08238 T8100 
08220 21 08238 09255 
08232 26 00000 1916O 
08244 26 191*0 18^10 
08256 16 08286 T8200 
0826ft 21 08286 09255 
O828O 26 00000 19160 
0«292 16 00469 08327 
08304 16 00445 T9160 
08316 49 00422 T8930 
O8328 16 00469 08363 
O8340 16 00445 T9160 
08352 49 00422 T8300 
O8364 26 18.300 19160 
00376 16 no46« 08411 
O8388 16 00445 T9160 
0«400 49 00422 TO0 10 
08412 26 10040 19160 
08424 49 O8764 00000 
00432 



044^0A10400 FS 


ACCI836O, 






Q8432 16 00469 00467 










UOHHH 1 *» vwiM-p 1 / low 










OAZitrA /iQ 0GL09 TR^AO 


04470A10490 C 


ACC, ZERO 






UttHOO ZH 1 ^ I ou 1 7 U u 


04480 BNP 


A10240, 






08480 47 07848 01100 


04490A1050O TF 


ACC, 191 20, 







^8492 26 19160 19120 


04500A10510 TF 


18910, ACC, 






08504 26 18^1 19160 


04510A1O520 TF 


18920, ACC, 






08516 2o 1o920 1916U 


045 20A 105^0 B 


AlO'.OO, 






nQroQ h o A*7QPn nnnnn 


045*0 DORG 


*-3, 


— — .■ 




AOr a 


04540A 10540 TF 


ACC, 18930, 






nQp^A *>a iQiAn 1 fto^n 

Uoy^O ZD i «/ I OU IO7IU 


04550A105<;0 TFM 


*+*o, 18100, 







tio54o 10 Uoi>/o lojuu 


04560 A 


*+l8,WB2, 






O050O 21 Uo5/o uyz55 


04570 TF 


,ACC, 






OH572 26 uuuuu ] y ] ou 


O458OAIO56O TF 


ACC, 18910, 








0o5H4 26 191oU so^iu 


045^10570 TFM 


*+?o, 18200, 






08596 16 U8626 io2Uu 


04600 A 


*+l8,WB2, 






nQAnQ 01 nftAoA 0Q9££ 


04610 TF 


,ACC, 







aq/aa oa nnnnn iQiAn 
UooZU Zo *iuuuu j y i ou 


04620A 10530 TF 


ACC,l840ft, 






**8o32 26 lyiDU ] otyuu 


04630A 10590 TF 


18*00, ACC, 






08644 26 18300 19160 


04640A 10600 FA 


ACC, 18010, 




. - 


O8656 16 00469 08691 










na aaq 1^ nn/iii c TcnAn 




• 




- 


f\Q£nn h a nn/ioo TAmn 

Uoouu H-y UUHZZ 1 OU jU 


O465OA 10*10 TF 


18940, ACC, 




■■• - • -— 


086^2 2b loHifU I v i ou 


04660A1062O TF 


ACC, 18 960, 






aq-ia 1, a 1 qi ah 1 A QAn 

Uo/Uh Z^ 1^1 OU |0;70U 


O467OAIO63O TF 


18^40, ACC, 






nQ -71 A A iQ2iin 1 Q1 An 
Uo71 2b icHhu I y I ou 


04680A 10640 TF 


ACC, 18^80, 






UO/ZO ZO 1 »7 1 OU lu^uw 


04690A10650 TF 


18970, ACC, 






nA7iiO OA 1&Q70 1 Q1 AO 


04 700A 10660 TF 


18350»ACC, , 






08752 26 loi5u lyiou 


O47IOAIO67O A 


WB2,WD2, 






08764 21 U4255 U^Z^u 


04720 C 


WL2,WB2, 






08776 24 09265 09255 


04730 BL 


*+20, 






O8788 47 08fi08 01 BOO 


04740 B 


A10690, 






08800 49 08820 00000 



04750 DCRG 






08808 




O476OA 10630 TFM 


WB2, 00000, 




08808 


16 09255 00000 


f \ t . "7 *7 C\ A 1 r\ f C\f\ *v- r- k * 

uh//uaiuo90 1 FM 


WB1 ,00000 $ 




08820 


16 09240 00000 


nil iAoa 1 mnn ycm 
|U/UU I FM 


WL1 , 000^0, 


-- 


0^832 


16 09250 00 060 


Q4790A10710 TFM 


SF+1 1 , 7° ^^81 1 $ 




08844 


16 02331 OO7O3" 


a /, or\r\ t pi j 


*+?5, 18900, 


* 


08856 


16 08891 T890O 


04810 A 




- 


08868 


21 08891 09240 


04820 BT 


TYPED, 00000, 




08880 


27 02188 00000 


O483O TBTY 


--- 


" ~ 


08892 


34 00000 00108 


04840A1072O A 


WB1,WD1, 




O8904 


21 09240 09245 


04850 c 


WL1,WB1, 




08916 


24 09250 09240 


04860 BL 


*+20, 


— > 


08928 47 08Q48 O13OO 


Oif870 B 


A10710, 




08940 


49 08844 00000 


04880 DORG 


*-3» 




08948 




U4o40A 10730 TFM 


SF+11, 701, 




08948 


16 02331 OO7OT 


04900 BT 


TYPhD, 18970, 


-- 


08960 27 02188 18970 


04910 RCTY 






08^72 


34 00000 00102 


04920A IO74O BC1 


A10760, 


— -~ ' 


08 984 46 09004 00100 


04930A10750 B 


AO 9400, 




08996 49 05244 00000 


04940 DCRG 






09004 




04950A10760 H 






09004 


48 00000 00000 


O496OAIO77O B 


AO 9000, 


- —-; ~ 


09016 49 04288 00000 


04970 DORG 


*-3, 




09024 




04980A1070O NOP 




'- - 


09024 


41 00000 00000 


04990A10790 TF 


ACC, 19130, 




09036 


26 19160 19130 


O5OOOAIO8OO FS 

( 


ACC, 1 8060, 




09048 
O9O6O 
O9072 


16 00469 09083 
16 00445 191 60 
49 00402 T8060 


O5OIOAIO81O FD 


18050,ACC, 




09084 
09096 
09108 


16 00469 09119 
26 01 260 18050 
49 01422 T9160 


O5O2O TF 


ACC, 99, 




09120 


26 19160 00099 


O5O3OA1002O FM 


ACC, 18060, 




09132 


16 00469 09167 



09144 26 01260 19160 
09156 49 01262 T8060 



05040 




ACC 


,99, 




09168 


26 19160 00099 


O5O5OA 10830 FA 


ACC 


,18050, 




091 80 


16 00469 09215 


09192 


16 00445 


T9160 




















09204 


49 00422 T805O 


05060A103W TF 


18050,ACC, 




09216 


26 I8O50 19160 


< 

O5O7OAIO85O B 


A0Q110, 




09228 


49 572 00000 


O5O8O 


DCRG 








09236 




- 


O5O9O 


DC 


10, 


5450000000, 


17950 


17950 


00010 


5450000000 


O51OO 


DC 


10, 


5120000000, 


17960 


17960 


00010 


5120000000 


05110 


DC 


10, 


51 10000000, 


17970 


17970 


00010 


51 10000000 


05120 


DC 


10, 


4711809340, 


1 7980 


17980 


00010 


5711809340 


05130 


DC 


10, 


5232200000, 


17990 


17990 


00010 


5232200000 


05140 


DC 


10, 


0000000000, 


1 8000 


1 8000 


00010 


0000000000 


05150 


DC 


10, 


0000000000, 


18^10 


18010 


00010 


0000000000 


05 16O 


DC 


10, 


0000000000, 


18020 


18020 


00010 


OQOOOOOOOO 


05170 


DC 


10, 


0000000000, 


18030 


18030 


00010 


0000000000 


O5 ]Qn 


DC 


10, 


0000000000, 


18040 


18040 


00010 


0000000000 


05190 


DC 


10, 


0000000000, 


18050 


18050 


00010 


0000000000 


G52OO 


DC 


10, 


0000000000, 


18060 


18060 


00010 


aooooooooo 


05210 


DC 


10, 


0000000000, 


180 70 


18070 


00010 


0000000000 


05220 


DC 


10, 


0000000000, 


18080 


13080 


00010 


0000000000 


05 230 


DC 


10, 


0000000000, 


180 90 


18090 


00010 


0000000000 


05240 


DC 


10, 


0000000000, 


18100 


18100 


00010 


0000000000 


O525O 


DC 


10, 


0000000000, 


18110 


18110 


00010 


0000000000 


05 260 


DC 


10, 


0000000000, 


18120 


18120 


00010 


0000000000 


O527O 


DC 


10, 


0000000000, 


18130 


18130 


00010 


aooooooooo 


O528O 


DC 


10, 


0000000000, 


18140 


18140 


00010 


0000000000 


O529O 


DC 


10, 


0000000000, 


18150 


13150 


00010 


aooooooooo 


O53OO 


DC 


10, 


0000000000, 


1 01 60 


18160 


00010 


ooonoooooo 


05310 


DC 


10, 


0000000000, 


18170 


13170 


000 10 


aooooooooo 


O532O 


DC 


10, 


0000000000, 


10180 


181 80 


000 10 


aooooooooo 



°5330 


DC 


10, 


0000000000, 


18190 




18190 


000 10 


oooooooooo 


05340 


DC 


10, 


0000000000, 


18200 




18200 


00010 


oooooooooo 


O535O 


DC 


10, 


0000000000, 


18210 




18210 


00010 


oooooooooo 


O536O 


DC 


10, 


0000000000, 


18220 




18220 


00010 


oooooooooo 


O537O 


DC 


10, 


0000000000, 


18230 




18230 00010 


oooooooooo 


O538O 


DC 


10, 


0000000000, 


18240 




18240 00010 


oooooooooo 


O5390 


DC 


1°, 


0000000000, 


18250 




18250 00010 


Oooooooooo 


O54OO 


DC 


10, 


0000000000, 


18260 




18260 


000 1 


oooooooooo 


O541O 


DC 


10, 


0000000000, 


18270 




18270 000 TO 


oooooooooo 


05420 


DC 


10, 


0000000000, 


T8280 




18?80 00010 


oooooooooo 


05430 


DC 


10, 


0000000000, 


18290 




18290 


000 TO 


oooooooooo 


05440 


DC 


10, 


0000000000, 


18300 




18300 


000 TO 


oooooooooo 


O545O 


DC 


10, 


0000000000, 


18310 




18310 


00010 


oooooooooo 


O546O 


DC 


10, 


0000000000, 


1832" 




18320 


OOOTO 


oooooooooo 


O547O 


DC 


10, 


0000000000, 


18330 




18330 


000 TO 


oooooooooo 


O548O 


DC 


10, 


0000000000, 


18340 




18340 


OOOTO 


OOOOOOOOOO 


O549O 


DC 


10, 


0000000000, 


18350 




18350 


00010 


OOOOOOOOOO 


O550O 


DC 


10, 


0000000000, 


18360 




18360 


00010 


OOOOOOOOOO 


05510 


DC 


10, 


oooooooooo,- 


18370 




18370 


OOOTO 


000000">O n O 


O552O 


DC 


10, 


0000000000,1 


I83 80 




183 80 


OOOTO 


OOOOOOOOOO 


05530 


DC 


10, 


0000000000,1 


18390 




. 18*90 


OOOTO 


oooooooooo 


05 540 


DC 


10, 


0000000000,1 


8400 




18400 


OOOTO 


oooooooooo 


O5550 


DC 


10, 


0000000000,1 


8410 




18410 


00010 


oooooooooo 


O556O 


DC 


10, 


0000000000,1 


8420 




18420 


OOOTO 


oooooooooo 


O557O 


DC 


10, 


0000000000,1 


8430 




18430 


OOOTO 


oooooooooo 


O558O 


DC 


10, 


0000000000,1 


8440 




18440 


OOOTO 


oooooooooo 


05590 


DC 


10, 


0000000000,1 


8450 




T845° 


oonio 


oooooooooo 


05 600 


DC 


10, 


0000000000,1 


846° 




1 8460 


00010 


oooooooooo 


05610 


DC 


10, 


0000000000,1 


8470 




18470 


OOOTO 


oooooooooo 


O562O 


DC 


10, 


0000000000,1 


8480. 




18480 


00010 


oooooooooo 


056" , .O 


DC 


10, 


oooooooooo, 1 


8490 




18490 


00010 


oooooooooo 


05 640 


■ DC 


10, 


0000000000,1 


8500 




1850H 


0*010 


oooooooooo 


O565O 


DC 


10, 


0000000000,1 


8«;io 




18510 


00010 


oooooooooo 



05660 


DC 


10, 


0000000000, 


18520 




18520 


00010 


/Taaaaaaaaa 

0000000000 


05670 


DC 


10, 


0000000000, 


18530 




18530 


nnn 1 A 

uuui u . 


A"AAAAAAAAA 

CM JUUU* t\J U'. 


0S6«0 


DC 


10, 


0000000000, 


18540 




18540 


A A r\ 4 r\ 


/Tf l A A A A A A A A 

OUUU f JUUUUU 


O569O 


DC 


10, 


0000000000, 


1855 A 




1^550 


00010 


If A\A /*\ A /•% f\ A A A 

0000000000 


O5 700 


DC 


10, 


0000000000, 


1*560 




18560 


00010 


0000000000 


05710 


DC 


10, 


0000000000, 


18570 


-• - — 


185 70 


00010 


0000000000 


05 7 20 


DC 


10, 


0000000000, 


18580 




18580 


00010 


aooooooooo 


O5730 


DC 


10, 


0000000000, 


18590 




18590 


00010 


0000000000 


O5740 


DC 


1<\ 


0000000000, 


18600 




18600 


00010 


00000 0000 


O575O 


DC 


10, 


0000000000, 


18610 


- - — - 


1«610 


Ann « r\ 

00010 


rfAAAAAAAAA 

UUUUUUUUUU 


05 76O 


DC 


10, 


0000000000, 


18620 




18620 


A A A <« a 

0001 


A" A A A A A A A A A 

UUUUUUUUUU 


05770 


DC 


10, 


0000000000, 


18630 




18630 


A A A 1 A 

00010 


^Taaaaaaaaa 

0000^00000 


O578O 


DC 


10, 


0000000000, 


18640 




18640 


00010 


0000000000 


O579O 


DC 


10, 


0000000000, 


18650 




18650 


00010 


0000000000 


O58OO 


DC 


10, 


0000000000, 


18660 




18660 


00010 


J"f a /"\/"\AA/'%A/'^/^ 

0000000000 


O58IO 


DC 


10, 


0000000000, 


1867^ 




18670 


/"\ A A 4i a 

00010 


rf A A A A A A A A A 

UOUOUUUUUU 


O582O 


DC 


10, 


0000000000, 


18680 




t O f OA 

18680 


AAA 4 A 

000 10 


ft A AAAA AAA A 


O583O 


DC 


10, 


0000000000, 


18690 


- -~ ■ - 


186 Q 


AAA 4 A 

oonio 


ATA A A AAA A A A 

UUUUUUUUUU 


058^0 


DC 


10, 


0000000000, 


18700 




18700 


00010 


fTAAAAAAAAA 

0000000000 


058^0 


DC 


10, 


0000000000, 


18710 




18710 


oonjo 


J*( A A A A A A 

0000000000 


O586O 


DC 


10, 


0000000000, 


1 Q 720 


- 


18720 


00010 


aooooooooo 


O587O 


DC 


10, 


0000000000, 


18730 




18730 


00010 


F?Arf*\AA/"\AAA/> 

0000000000 


O588O 


DC 


10, 


0000000000, 


18740 




18740 


00010 


TTAAAAAAAAA 

0000000000 


05890 


DC 


10, 


0000000000, 


18750 


— -- 


18750 


00010 


/>/%/>AAAAAA 

0000000000 


O59OO 


DC 


10, 


0000000000, 


18 76O 




18760 


00010 


0000000000 


O59IO 


DC 


10, 


0000000000, 


18770 




18770 


00010 


000^000000 


05920 


DC 


10, 


0000000000, 


18780 




18780 


00010 


0000000000 


O593O 


DC 


10, 


0000000000, 


18790 




4 0«7 AA 

10790 


AAA 1 A 
UUU ] U 


HA AAAA A AAA 
UUUUUUUUUU 


O5940 


DC 


10, 


0000000000, 


1 8800 




18800 


A AA « A 

000 1 


/TA A A A A A A A A 

OOOGOOOOuO 


O595O 


DC 


10, 


0000000000, 


18810 




18810 


000 10 


PC A A A A AAAA A 

0000000000 


05 960 


DC 


10, 


0000000000, 


18820 




18820 


00010 


aooooooooo 


O5970 


DC 


10, 


0000000000, 


1 8°3^ 




18830 


00010 


0000000000 


05 980 


DC 


10, 


0000000000, 


1 8840 




18840 


00010 


aooooooooo 



05990 


DC 


10, 


0000000000, 


13850 


18850 


00010 


oooooooooo 


06000 


DC 


10, 


oooooooooo, 


13360 


18860 


00010 


oooooooooo 


06010 


DC 


10, 


0000000000, 


18870 


18870 


00010 


oooooooooo 


06020 


DC 


10, 


oooooooooo, 


18880 


18880 


00010 


oooooooooo 


06030 


DC 


10, 


oooooooooo, 


18«90 


18890 


00010 


oooooooooo 


06040 


DC 


10, 


oooooooooo, 


18900 


18*00 


00010 


oooooooooo 


06050 


DC 


10, 


oooooooooo, 


18910 


18910 


00010 


OOOOOOOOOO 


06060 


DC 


10, 


oooooooooo, 


1 8920 


18920 


00010 


oooooooooo 


06070 


DC 


10, 


oooooooooo, 


18930 


18930 


00010 


oooooooooo 


06030 


DC 


10, 


oooooooooo, 


18940 


18940 


00010 


oooooooooo 


06090 


DC 


10, 


oooooooooo, 


18950 


18950 


00010 


oooooooooo 


06100 


DC 


10, 


oooooooooo, 


18960 


18960 


00010 


OOOOOOOOOO 


06110 


DC 


10, 


oooooooooo, 


18970 


18970 


00010 


OOOOOOOOOO 


06120 


DC 


10, 


oooooooooo, 


18980 


18980 


00010 


OOOOOOOOOO 


06130 


DC 


10, 


oooooooooo, 


18990 


.18990 


00010 


OOOOOOOOOO 


06140WB1 


DC 


5,0, 






09?.40 


00005 


00000 


0615OWD1 


DC 


5,0, 






09245 


00005 


opooo 


06160WL1 


DC 


5,0, 






09250 


00005 


00000 


061 70 WB 2 


DC 


5,0, 




_, 


09255 


00005 


00000 


061GOWD2 


DC 


5,0, 






09260 


00005 


00000 


06190V/L2 


DC 


5,0, 






09265 


00005 


00000 


06200 


DEND 


AO 900 0-24, 




04264 







LOAD SUBROUTINES 
END OF PASS I f 



WATER HAMMER 

DISCHARGE 200 200.000 

100 100.000 

C.S.AREA 19*66 19.660 

LENGTH 2900 2900.000 

VELOCITY 3196 3196.000 

T(1) 5 5.000 

RATIO *5 .500 

T(2) 15 15.000 



.000 


.000 


.000 


.000 


.453 


16.931 


.170- 


.000 


.907 


21.250 


.214- 


.000 


1 .361 


27.018 


.272- 


.000 


1 . 8 1 4 


34.811 


.350- 


.000 


2.268 


67.152 


.676- 


33.T63- 


2.722 


58.004 


.584- 


42.501- 


3. 1 75 


42.332 


.426- 


54.036- 


3.629 


51.455 


.518- 


69.623- 


4.083 


70.296 


.708- 


100.441- 


4.536 


53.550 


.539- 


73.507- 


4.990 


26.546 


.267- 


30.629- 


C lit, It 


28.022 


.282- 


33.287- 


5 . - 97 


31.988 


.322- 


40. 151- 


2/. 7o3 


.279- 


33.594- 




20.858 


.210- 


22.463- 


7.259 


20.943 


.211- 


22.756- 


7.712 


21.479 


.216- 


23.825- 


P. 1 66 


20.267 
18. 672 


.204- 


21.933- 


P. 620 


.188- 


19.253- 


9.-0 73 


1P.547 


.186- 


19.129- 


9.527 


18.543 


.186- 


1°.132- 


9.9^1 


18. 230 


.183- 


18.601- 


1 0.^3^ 


1 7.948 


.180- 


18. 091- 


10.888 


17.877 


. 1 80- 


17.964- 


1 1 .342 


1 7.866 


.180- 


17.953- 


11.795 


17.817 


.179- 


17.858- 


12.249 


17.791 


. 1 79- 


17.806- 


12.703 


17.783 
17.77B 


.179- 


17.790- 


13.157 


. 1 79- 


17.778- 


13.610 
14.064 




.179- 
.179- 


17.775- 

17.776- 


14.518 


17.779 


. 1 79- 


17.776- 


14.971 


17.781 


.179- 


17.778- 


15.425 


17.774 


.179- 


17.779- 


15.879 


17.778 


.179- 


17.780- 


16.332 


17.779 


.1 79- 
. 1 79- 


17.781- 


16.786 


17.781 


17.784- 


17.240 


17.776 


.179- 


17.768- 


17.693 


10.175 


.102- 


17.777- 


18.147 


.000 


.000 


17.776- 


18.601 


.000 


.000 


17.778- 


19.055 


.000 


.000 


17.784- 


19.508 


.000 


.000 


2.573- 


19.962 
20.416 


.000 
.000 


.000 

.000 





100.000 


1 .000 


10.172 


200.0 


1 16.931 


.909 


10.002 


196.6 


138.182 


.818 


9.788 


192.4 


165.201 


.727 


9.516 


187.0 


200.013 


.637 


9.165 


U0.1 


233.301 


.546 


8.488 


166.8 


248.804 


.492 


7.904 


155.3 


237.100 


.477 


7.477 


147.0 


21f .932 


.462 


6.959 


136. r 


188.788 


.447 


6.251 


122.8 


168.831 ' 


.432 


5.711 


112.2 


164.748 


.416 


r III 

5.444 


107.0 


159.482 


.401 


5.161 


101.4 


151 .319 


.386 


4.839 


95. 1 


145.489 


.371 


4.559 


89. 6 


143.884 


-t r f 
.356 


4.349 


85 .5 


142.070 


.341 


4. 138 


81 .3 


139.724 


.326 


3.922 


77.1 


138.058 


.311 


3.718 


73.0 


137.477 


.295 


3.529 


69.3 


136.895 


.280 


3.343 


65 . 7 


136.305 


.265 


3.156 


62.0 


135.934 


.250 


2.972 


58.4 


135.791 


.235 


2.791 


54. 8 


135.704 


.220 


2.61 1 


51 .3 


135.617 


.205 


2.431 


47.8 


135.575 


.190 


2.252 


44.2 


135.560 


.175 


2.072 


40.7 


135.553 


.159 


1.893 


37.2 


135.553 


.144 


1.714 


33.7 


135.555 


.129 
.114 


1.535 


30.1 


135.557 


1.356 


26.6 


135.559 


.099 


1.177 


23. 1 


135.562 


.084 


.998 


19.6 


135.557 


.069 


.819 


16.1 


135.556 


.054 


.639 


12.5 


135.553 


.038 


.460 


9.0 


135.550 


.023 


.281 


5.5 


135.558 
127.956 


.008 


.102 


2.0 


.000 


.000 


.0 


110.179 


.000 


.000 


.0 


92.401 


.000 


.000 


.0 


74.616 


.000 


.000 


.0 


72.043 


.000 


.000 


.0 


89.820 


.000 


.000 


:8 


107.598 


.000 


.000 
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DISCLAIMER 



Although each program has been tested by its contributor, 

no warranty, express or implied, is made by the contributor 

or any User T s Group, as to the accuracy and functioning of 

the program and related program material, nor shall the fact 

of distribution constitute any such warranty, and no responsibility 

is assumed by the contributor or any User ! s Group, in connection 

therewith. 



COMMON USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter, ink or pencil) 

Program No. Date 

Program Name: 

1. Does the abstract adequately describe what the program is and what Yes No_ 

it does ? 

Comment 



2. Does the program do what the abstract says? Yes No_ 

Comment 



3. Is the description clear, understandable, and adequate? Yes No_ 

Comment 



4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

Comiment 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable? Yes No_ 

Comment 



5. Does the source program compile satisfactorily (if applicable)? Yes No_ 

Comment 

6. Does the object program run satisfactorily? Yes No 

Comment 



7. Number of test cases ran . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No 

Comment 



8. Does the Program meet the minimal standards of COMMON? Yes No_ 

Comment _ 

9. Were all necessary parts of the program received? Yes No 

Comment 



10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 

Company 

Mr. Richard L. Pratt 

Data Corporation Address 

7500 Old Xenia Pike 

Dayton, Ohio 45432 Users Group Code 

THIS REVIEW FORM IS PART OF THE COMMON ORGANIZATION'S PROGRAM REVIEW AM 
EVALUATION PROCEDURE. NONME MBERS ARE CORDIALLY INVITED TO PARTICIPATE 
IN THIS EVALUATION. 
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wUl be announced in the appropriate Catalog of Programs 
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ment occurs, users should order a complete new program 
from the Program Information Department. 



iii 



TAPE KEY 



Tape 1 Source 
Tape 2 Object 



iv 



QUEEN'S 



UNIVERSITY COMPUTING CENTRE 

ONTARIO, CANADA 



Title: WATER HAMMER 
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DISCLAIMER 

Queen's University Computing Centre takes no 
responsibility for any errors, mistakes or imperfections in this 
program nor for any erroneous results obtained in the running of 
the program. 

INTRODUCTION 

Under steady conditions of flow, in a pipeline fed from 
a constant level reservoir controlled by a valve at a lower end, 
closure of the valve initiates a change in pressure which may 
give rise to "water-hammer" effects. This program performs 
a numerical step method of integration to compute the pressure 
developed at the valve (or gate) due to the closure of that gate. 
Only a single pipeline of uniform dimensions is considered. 
Friction in the system is ignored. 



Mathematical Method 

Whilst the exact mathematical treatment of the pressure 
changes in a conduit under the influence of instantaneous valve 
closure is well established, that for slow gate closure is only 
soluble by a numerical integration procedure. The method used in 
the program described herein assumes that the valve closes slowly, 
but in small instantaneous steps. When the valve closes instantly 
the velocity of the layer of water next to it must be reduced from some 
value V to zero. As a result an elastic pressure wave is trans - 
mitted toward the reservoir at a velocity of 'a' ft/ sec. At the 
instant L/ a seconds after valve closure, the velocity of flow is 
everywhere equal to zero while the pressure in the pipe is Ah^. 
above that in the reservoir at the same level. Water immediately 
tries to move from the high pressure area to the low pressure area 
so that an expansion wave proceeds towards the valve arriving there 
at time 2L/ a. If the gate has not closed further since the wave was 
initiated, another wave will travel to the reservoir and return this 
time reducing the head in the pipeline and at time 4L/ a the con- 
ditions will be identical to those at the start (i.e. time t = 0). 

If the valve had been closed slowly, in a time exceeding 
ZL./ a seconds, the reflected expansion wave would have relieved 
the increasing pressure to some extent before the full theoretical 
Ah^ had built up. If a particular velocity change Av occurs in a 
shorter time than 2L,/ a it causes the same pressure increment as 
an instantaneous velocity change of the same magnitude, namely 
- — Av : if the velocity change occurs in a time exceeding 2L/ a 
seconds the pressure increment is affected by the reflected elastic 
wave s . 

The following assumptions simplify the solution and have 
little effect on the results; 

1. The pipe is assumed to be f rictionless . 



2. 



The coefficient of contraction for the resulting orifice 
as the valve (or gate) closes is unchanged so that the 
discharge at any time t may be defined as 



A t / H t 



3. The gates are imagined to close in a number of 
instantaneous steps at time intervals of 

_ Z L 



4. The ratio of gate opening to full opening may be 
expressed graphically by the form. 




If h is the pressure increment of the wave generated 2L/ a seconds 
r 

previously, returning to the gate at some time t then the total head 
may be written as 

n(2L/ a) 

H = S (Ah + h ) + H 
t = t 



4 

Rewriting the equation for discharge at any time t as 

«. -.[(")' -] 

and assuming a trial value of Q_ t , a trial value of may be 

obtained. By successive computations another value of is 
calculated and compared with the original assumption. If the two 
agree within 0. 1% the results are printed and the next step computed 
for time (t + 2L/ a). If there is no such agreement, the new value 
of Q t is taken as a new trial value and the computations repeated. 

It occasionally happens, that with exceptionally small 
gate openings, the accuracy of solution does not allow convergence 
to conform with the desired 0. 1% accuracy. In this instance the 
operator is provided with a means of forced output. 

Input Format 

Input format is in a fixed point form using the record mark 
as the decimal point. Since the floating point subroutines use a 
8 digit mantissa, it is pointless to input more than 8 digits. However, 
if the operator does exceed this figure, the program will truncate 
data to the desired level. Since the input area is filled with record 
marks before input is gated, an integer may be entered without 
definition of the decimal point. To aid the operation, all input is in 
numerical mode and consequently negative input data is unacceptable. 
All input data is expressed in feet - second - pound units. Prior 
to entry of the data a description of the required information is 
typed: 

DISCHARGE The initial steady state flow through the pipeline 
and valve in cusecs. 

HEAD The initial head at the gate (or valve) neglecting 

losses. Note that for large gates use the head 
at the centre line of the gate (ft). 

2 

C.S. AREA The cross sectional area of the conduit (ft ). 



LENGTH 
VELOCITY 



where 



K 

E 



D 
t 



The length of the pipeline (ft). 

The velocity of wave propagation in the pipeline 
(ft/ sec). This quality will vary according to the 
elastic properties of the conduit and fluid. In 
gene ral, 

12 



and 



is the velocity of the pressure wave in ft/ sec. 
is the bulk modulus of the fluid in lb/ in^. 
is the Young's Modulus of the material of the 
pipe in lb/ in . 

is the internal diameter of the pipe in inches, 
is the wall thickness of the pipe in inches, 
is the specific weight of the fluid. 



T(i) 



Gate closure characteristics except that with 



RATIO ) See Fig. 1. SW3 ON T(l) is accepted as T(l)*. 



T(2) 



) 



Output 

The output consists of eight columns of data without 
headings these are: 



t Aht Av hrt Ht Gate Opening Vt Qt 

(Sees) (ft) (ft/ sec) (ft) (ft) (--) (ft/ sec) (cusecs) 

All output is in fixed point notation and requires a minimum 11" wid 
sheet. 



OPERATING PROCEDURE 

1. Clear Memory R/ I 160001000000 R/s. 
Wait 3 seconds, depress Instant Stop. 

2. Load the program tape in the photo reader, and 
R/l 36000000300 R/S. 

The tape will be read into the 162 and eventually 
computation will halt. 

3. Depress START. 

The computer will type: 
WATER HAMMER 
DISCHARGE 

and gate type -in. Enter the data in fixed point notation using the 
record mark as a decimal point. Depress RELEASE & START 
after entry. An echo will be typed out in the same format followed 
by the next request for data. Note that at the instant where T(l) is 
requested SW3 should be set to indicate actually whether T(l) or 
T(l)* has been typed in 

SW3 ENTRY 

ON T(l)* 

OFF T(l) 

Errors in typing may be corrected before RELEASE & START have 
been depressed by putting SW4 ON first an > tnen releasing this 
information. If an error is detected only after release to the computer 
depress RESET, INSERT, RELEASE & START to recommence the 
program. Note that a zero entry is merely RE LEASE /START. 

4. Immediately after the entry and echo of the last piece of 
input data, five carriage returns will occur followed by the first line 
of output data. At approximately 12 second intervals this procedure 
will be repeated. 

5. To terminate computation at any time put SW 1 ON and the 
computer will halt after the next line of type -out. Depress START 
to return to Step 3. 



6„ With very small gate openings, convergence to a 

satisfactory degree may not be reached. After a period of at 
least 30 seconds, put SW 2 ON to force output. As soon as the 
output commences, put SW 2 OFF so as to not force output on the 
next time step. 
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* WATER HAMMER 




00020 


DC 


10,0, 


* FIXED PC 


1 NT OUTPUT ROUTINE 


00040TYPED 


TF 


F1XED-8,ZERC, 


00050 


TF 


FiXED+2 f ZERO, 


00060 


SF 


SF+10, 


OOO7O 


AM 


SF+%50,10 


00080 


TF 


*+23,SF+9, 


00090 


CM 


TYPED-9,60,10, 


00100 


BH 


FLPT, 


00110 


AM 


SF+11,50,10 


00120 


TF 


*+23,SF+11, 


00130 


CM 


TYPED-9,48, 10, 


0011+0 


BL 


TEST, 


00150SF 


SF 


TYPED-8, 


00160 


TFM 


*+30,FiXED+50, 


OO17O 


S 


*+l8,TYPED-9, 


001 an 


TF 


,TYPED~1, 


001 90S ET 


TFM 


N, 17,10, 


00 200 


TFM 


M,0,10, 


00210 


TFM 


*+35, FIXED, 


00220 


S 


*+23,N, 


00230BRD 


BD 


DJ,,0, 


00240 


BNF 


Dl ,BRD, 


00250 


TFM 
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08996 49 05244 00000 
09004 

09004 48 00000 00000 
09016 49 04288 00000 
0902.4 

09024 41 00000 00000 
09036 26 19160 19130 
09048 16 00469 09083 
09060 16 00445 T9160 
09072 49 00402 T8O6O 
09084 16 00469 09119 
090 96 26 01260 1 8050 
09108 49 01422 T9160 
09120 26 19160 00099 
09132 16 0046? 09167 











09144 


26 01 260 19160 










09156 


49 01262 T8060 


05040 


TF 


ACC 




09168 


26 19160 00099 


O5O5OA 10830 FA 


ACC 


,18050, 


09180 


16 00469 09215 


09192 16 00445 


T9160 
















09204 


49 00422 T8O5O 


05060A10840 TF 


18050,ACC, 


09216 


26 18050 19160 


O5O7OAIO85O 


B 


A09H0, 


09228 


49 04572 00000 


O5O 80 


DORG 




9 


09236 






05090 


DC 


10, 


5450000000,17950 


17950 


00010 


5450000000 


O51OO 


DC 


10, 


5120000000,17960 


17960 


00010 


5120000000 


05110 


DC 


10, 


5110000000,17970 


17970 


00010 


5110006000 


05120 


DC 


10, 


4711809340,17980 


1 7980 


00010 


471 180 9340 


05130 


DC 


10, 


5232200000,17990 


17990 


00010 


5232200000 


05140 


DC 


10, 


0000000000,18000 


1 8000 


00010 


0000000000 


05150 


DC 


10, 


0000000000,18^10 


180 10 


00010 


0000000000 


05 160 


DC 


10, 


0000000000,18020 


18020 


00010 


0000000000 


05170 


DC 


10, 


0000000000,18030 


I8O3O 


00010 


0000000000 


0518ft 


DC 


10, 


0000000000,13040 


18040 


00010 


0000000000 


05190 


DC 


10, 


0000000000,18050 


I8O5O 


00010 


0000000000 


O52OO 


DC 


10, 


0000000000,18060 


18060 


00010 


0000000000 


05210 


DC 


10, 


0000000000,18070 


180 70 


00010 


0000000000 


05220 


DC 


10, 


0000000000,18080 


18080 


00010 


0000000000 


O523O 


DC 


10, 


0000000000,18090 


180 90 


00010 


0000000000 


05240 


DC 


10, 


0000000000,18100 


18100 


00010 


0000000000 


O525O 


DC 


10, 


0000000000,18110 


18110 


00010 


0000000000 


O526O 


DC 


10, 


0000000000,18120 


18120 


00010 


0000000000 


O527O 


DC 


10, 


0000000000,18130 


I813O 


00010 


0000000000 


05 28O 


DC 


10, 


0000000000,18140 


18140 


00010 


0000000000 


O529O 


DC 


10, 


0000000000,18150 


18150 


00010 


0000000000 


O53OO 


DC 


10, 


0000000000,18160 


18160 


00010 


0000000000 


05310 


DC 


10, 


0000000000,13170 


28 18170 


00010 


oooobooooo 


0532Q 


DC 


10, 


0000000000,18180 


18180 


00010 


5000000000 




05330 


DC 


10, 


0000000000,18190 


05340 


DC 


10, 


0000000000,18200 


05350 


DC 


10, 


0000000000,18210 


05360 


DC 


10, 


0000000000,18220 


05370 


DC 


10, 


0000000000,18230 


05 3 80 


DC 


10, 


0000000000,18240 


05390 


DC 


1°, 


0000000000,18250 


O5WO 


DC 


10, 


0000000000, 1 8260 


O5MO 


DC 


10, 


0000000000,18270 


5 4 20 


DC 


10, 


0000000000,18280 


O543O 


DC 


10, 


0000000000,18290 


05440 


DC 


10, 


0000000000,18300 


O545O 


DC 


10, 


0000000000,18310 


O546O 


DC 


10, 


0000000000,1 8 ?20 


O547O 


DC 


10, 


0000000000,18330 


O548O 


DC 


10, 


0000000000,18340 


O5490 


DC 


10, 


0000000000,18350 


05 500 


DC 


10, 


0000000000,18360 


05510 


DC 


10, 


0000000000,18370 


O552O 


DC 


10, 


0000000000,18380 


05530 


DC 


10, 


0000000000,18390 


O5540 


DC 


10, 


0000000000,18400 


05550 


DC 


10, 


0000000000,18410 


O556O 


DC 


10, 


0000000000,18420 


05570 


DC 


10, 


0000000000,18430 


O558O 


DC 


10, 


0000000000,18440 


05590 


DC 


10, 


0000000000,18450 


05 600 


DC 


10, 


0000000000, 1846^ 


O56IO 


DC 


10, 


0000000000,18470 


05 620 


DC 


10, 


0000000000,18480 


056"0 


OC 


10, 


0000000000,18490 


05640 


DC 


10, 


0000000000,18500 


O565O 


DC 


10, 


0000000000,13^10 
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1 8 1 90 000 1 


0000000000 


05660 


DC 


10, 


18200 00010 


0000000000 


05670 


DC 


10, 


18210 00010 


0000000000 


056A0 


DC 


10, 


18220 00010 


aooooooooo 


05690 


DC 


10, 


18230 00010 


aooooooooo 


05700 


DC 


10 


18240 00010 


aooooooooo 


0^710 


DC 


10 


18250 00010 


aooooooooo 


O572O 


DC 


10, 


18260 00010 


aooooooooo 


05730 


DC 


10, 


18270 00010 


aooooooooo 


O574O 


DC 


1°» 


18?80 00010 


aooooooooo 


05 750 


DC 


10, 


18290 00010 


aooooooooo 


05 7 60 


DC 


10, 


18300 00010 


aooooooooo 


05770 


DC 


10, 


18310 00010 


aooooooooo 


O578O 


DC 


10, 


18320 00010 


aooooooooo 


O579O 


DC 


10, 


18330 00010 


aooooooooo 


05 800 


DC 


10, 


18340 00010 


aooooooooo 


O58IO 


DC 


10, 


18350 00010 


aooooooooo 


O582O 


DC 


10, 


18360 00010 


aooooooooo 


O583O 


DC 


10, 


18370 00010 


aooooooooo 


O584O 


DC 


10, 


18330 00010 


aooooooooo 


058^0 


DC 


10, 


18*90 00010 


aooooooooo 


O586O 


DC 


10? 


18400 00010 


aooooooooo 


O587O 


DC 


10, 


18410 00010 


aooooooooo 


O588O 


DC 


10, 


18420 00010 


aooooooooo 


O589O 


DC 


10, 


18430 00010 


aooooooooo 


O590O 


DC 


10, 


18440 00010 


aooooooooo 


05910 


DC 


10, 


1845 A 00010 


aooooooooo 


O592O 


DC 


10, 


18460 00010 


aooooooooo 


059-0 


DC 


10, 


18470 00010 


aooooooooo 


O594O 


DC 


10, 


18480 00010 


aooooooooo 


05950 


DC 


10, 


18490 00010 


aooo n ooo n o 


O596O 


DC 


10, 


l850 n CTOIO 


aooooooooo 


05 970 


DC 


10, 


18510 00010 


aooooooooo 


05930 


DC 


10, 



0000000000, 


13520 




18520 


00010 


aooooooooo 


0000000000, 


13530 




18530 


00010 


aooooooooo 


0000000000, 


18540 




18540 


0O010 


aooooooooo 


0000000000, 


1855° 




1 a 5 r 


00^10 


aooooooooo 


0000000000, 


1«560 




185 60 


00010 


aooooooooo 


0000000000, 


18570 




185 70 


00010 


oo n ooooooo 


0000000000, 


185 80 




18^80 


00010 


aooooooooo 


0000000000, 


18590 




18590 


00010 


aooooooooo 


0000000000, 


18600 




18600 


00010 


aooooooooo 


0000000000 , 


18610 




18610 


000 10 


aooooooooo 


0000000000, 


18620 




18620 


00010 


aooooooooo 


0000000000, 


18630 




18630 


00010 


aooooooooo 


0000000000, 


18640 




18640 


00010 


aooooooooo 


0000000000, 


1 8650 




18650 


00010 


aooooooooo 


0000000000, 


18660 




18660 


0*010 


aooooooooo 


0000000000, 


1867^ 




I867O 


00010 


aooooooooo 


0000000000, 


18680 




18680 


00010 


aoooooo n oo 


0000000000, 


18690 




18600 


00010 


aooooooooo 


0000000000, 


8700 




18700 


00010 


aooooooooo 


0000000000, 


18710 




18710 


00010 


aooooooooo 


0000000000, 


Q720 




18720 


00010 


aooooooooo 


0000000000, 


I8730 




18730 


00010 


aooooooooo 


0000000000, 


18740 




18740 


00010 


aooooooooo 


0000000000, 


18750 




18750 


00010 


aooooooooo 


0000000000, 


18760 




I876O 


00010 


aooooooooo 


0000000000, 


18770 




18770 


00010 


aooooooooo 


0000000000, 


18 78O 




I878O 


00010 


aooooooooo 


0000000000, 


18790 




18790 


00010 


aooooooooo 


0000000000, 


18800 




18800 


00010 


aooooooooo 


0000000000, 


18810 




18810 


00010 


aooooooooo 


0000000000, 


13820 




18820 


00010 


aooooooooo 


0000000000, 


18°3° 


30 


18830 


00010 


aooooooooo 


0000000000, 


13840 


1 8840 


00010 


aooooooooo 



05990 


DC 


10, 


0000000000, 


18850 


18850 00010 


0000000000 


06000 


DC 


10, 


0000000000, 


18860 


18860 00010 


0000000000 


06010 


DC 


10, 


0000000000, 


18870 


18870 00010 


0000000000 


06020 


DC 


10, 


0000000000, 


18880 


18880 00010 


0000000000 


O6O3O 


DC 


10, 


0000000000, 


18«90 


18890 00010 


0000000000 


06040 


DC 


10, 


0000000000, 


18900 


I8 rt 00 00010 


0000000000 


06050 


DC 


10, 


0000000000, 


18910 


18910 00010 


0000000000 


06060 


DC 


10, 


0000000000, 


18920 


18920 00010 


0000000000 


06070 


DC 


10, 


0000000000, 


18930 


18930 00010 


0000000000 


06080 


DC 


10, 


0000000000, 


18940 


18940 00010 


0*00000000 


06090 


DC 


10, 


0000000000, 


18950 


18950 00010 


0000000000 


06100 


DC 


10, 


0000000000, 


18960 


18960 00010 


0000000000 


06110 


DC 


10, 


0000000000, 


18970 


18970 00010 


OOOOnOOOOO 


06120 


DC 


10, 


0000000000, 


18980 


18980 00010 


0000000000 


06130 


DC 


10, 


0000000000, 


18990 


18990 00010 


0000000000 


061 4QWB1 


DC 


5,0 






09240 00005 


00000 


06150WD1 


DC 


5,0 


» 




09245 00005 


00000 


06160WL1 


DC 


5,0 


► 




09250 OOOO5 


00000 


06170WB2 


DC 


5,0 


► 




09255 00005 


00000 


0618OWD2 


DC 


5,0 


* 




09260 00005 


00000 


06190WL2 


DC 


5,0 


* 




09265 00005 


00000 


06200 


DEND 


AO 9000- 24, 




04264 




LOAD SUBROUTINES 












END OF PASSU 













WATER HAMMER 

DISCHARGE 200 

HEAD 100 

C .S .AREA 19+66 

LENGTH 2900 

VELOCITY 3196 

TO) 5 

RATIO $5 

T(2) 15 



.000 
.453 
.907 
1.361 
1 . P 1 4 
2.26P 
2.722 
3.175 
3.629 



31 



4.0P3 
4.536 
4.990 
5.444 

5. P97 
6.351 

6. P05 
7.259 
7.712 
P. 166 
P. 620 
9.073 
9.527 
9.9P1 

10.434 
10.888 
11.342 
11.795 
12.249 
12.703 
13.157 
13.610 
14.064 
14.51P 
14.971 
15.425 
15.879 
16.332 
16.7P6 
17.240 
17.693 
18.147 
18.601 
19.055 
19.508 
19.962 
20.416 



200.000 
100.000 

19.660 
2900.000 
3196.000 
5.000 

.500 

15.000 



.000 


.000 


.000 


16.931 


.170- 


.000 


21.250 


.214- 


.000 


27.01P 


.272- 


.000 


34.ri1 


.350- 


.000 


67.152 


.676- 


33 - r 63- 


5P.004 


.5P4- 


42.501- 


42.332 


.426- 


54.036- 


51.^55 


.518- 


69.623- 


70.296 


.708- 


100.441- 


53.550 


.539- 


73.507- 


26.546 


.267- 


30.629- 


2P.022 


.2P2- 


33.2P7- 


31.9P8 


.322- 


40.151- 


27.763 


.279- 


33.594- 


20.P58 


.210- 


22.463- 


20.943 


.211- 


22.756- 


21.479 


.216- 


23.825- 


20.267 


.204- 


21.933- 


1P.672 


.1PP- 


19.253- 


1P.547 


.1P6- 


19.129- 


18.543 


.186- 


19.132- 


IP,. 230 


.1P3- 


18. 601- 


17.948 


.180- 


18. 091- 


17.877 


.180- 


17.964- 


17.P66 


.180- 


17.953- 


17.817 


.179- 


17.858- 


17.791 


.179- 


17.806- 


17.783 


.179- 
.179- 


17.790- 


17.778 


17.778- 


u-.m 


.179- 
.179- 


17.775- 
17.776- 


17.779 


.179- 


17.776- 


17.781 


.179- 


17.778- 


17.774 


.179- 


17.779- 


17.778 


• 1 79- 


17.780- 


17.779 


.179- 


17.781- 


17.781 


.179- 


17.784- 


17.776 


. 1 79- 


17.768- 


10.175 


.102- 


17.777- 


.000 


.000 


17.776- 


.000 


.000 


17.778- 


.000 


.000 


17.784- 


.000 


.000 


2.573- 


.000 


.000 




.000 


.000 



100.000 
116.931 
13P.1F2 
165.201 
200.013 
233.301 
24R.P04 
237.100 
21F .932 
1PP.7P8 
16P.P31 
164.74P 
159.4P2 
151.319 
145. 4P9 
143. 8P4 
142.070 
139.724 
13P.058 
137.477 
136.895 
136.305 
135.934 
135.791 
135.704 
135.617 
135.575 
135.560 
135.553 
135.553 
135.555 
135.557 
135.559 
135.562 
135.557 
135.556 
135.553 
135.550 
135.558 
127.956 
110.179 
92.401 
74.616 
72.043 
P9.820 
107.598 



1 .000 
.909 
.81 f 
.727 
.637 
.546 
.492 
.477 
.462 
.447 
.432 
.416 
.401 
.3P6 
.371 
.356 
.341 
.326 
.311 
.295 
.2P0 
.265 
.250 
.235 
.220 
.205 
.190 
.175 
.159 
.144 
.129 
.114 
.099 
.084 
.069 
.054 
.038 
.023 
.008 
.000 
.000 
.000 
.000 
.000 
.000 
.000 



10.17 2 


200 


1 .002 


1 90. 


9.7P8 


192.4 


9.516 


1 P7.0 


9.165 


1 f 0. 1 


P.4P8 


166.8 


7.904 


155.3 


7.477 


147.0 


6.959 


136. r 


6.251 


122. P 


5.71 1 


1 1 2.2 


5.444 


107.0 




101 4 


4.839 


95*.] 


4.559 


P9.6 


4.349 


85.5 


4.138 


81.3 


3.922 


77.1 


3.71P 


73.0 


3.529 


69.3 


3.343 


65.7 


3.156 


62.0 


2.972 


58.4 


2.791 


54. P 


2.611 


51.3 


2.431 


47.8 


2.252 


44.2 


2.072 


40.7 


1.893 


37.2 


1.714 


33.7 


1.535 


30.1 


1.356 


26.6 


1.177 


23.1 


.998 


19.6 


.819 


16.1 


.639 


12.5 


.460 


9.0 


.281 


5.5 


.102 


2.0 


.000 


.0 


.000 


.0 


.000 


.0 


.000 


.0 


.000 


.0 


.000 


.0 


'000 


lo 



32 



t 

c 



c 



4 

I 



C 



